home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_7620.txt < prev    next >
Text File  |  1990-04-09  |  3KB  |  161 lines
  1. -- card: 7620 from stack: in
  2. -- bmap block id: 8105
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: FILECARD
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=29 top=67 right=89 bottom=171
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card Automation
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: 2000
  30. -- rect: left=29 top=93 right=116 bottom=172
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: New Button
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   answer "Do you wish to Quit?" with "Yes" or "Home" or "CANCEL"
  42.   if it is "yes" then
  43.     doMenu "Quit HyperCard"
  44.   end if
  45.   if it is "Home" then
  46.     domenu "Home"
  47.   end if
  48.   if it is "CANCEL" then
  49.     go to card "SLBnames"
  50.   end if
  51.  
  52. end mouseUp
  53.  
  54.  
  55.  
  56.  
  57. -- part 4 (button)
  58. -- low flags: 00
  59. -- high flags: 2000
  60. -- rect: left=29 top=51 right=67 bottom=172
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: New Button
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   show card field "ref"
  72.   repeat until the mouse is down
  73.     show card field "ref"
  74.   end repeat
  75.   hide card field "ref"
  76.   go to card "SLBnames"
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 5 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=29 top=35 right=52 bottom=172
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Notify
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   show card field "op"
  96.   repeat until the mouse is down
  97.     show card field "op"
  98.   end repeat
  99.   hide card field "op"
  100.   go to card General
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 6 (button)
  106. -- low flags: 00
  107. -- high flags: 2000
  108. -- rect: left=29 top=19 right=36 bottom=172
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Notify
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   go to card DSsample
  120.   show card field "Foo"
  121.   wait 200 ticks
  122.   hide card field "Foo"
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 7 (field)
  128. -- low flags: 80
  129. -- high flags: 0004
  130. -- rect: left=1 top=127 right=226 bottom=512
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 0
  134. -- font id: 20
  135. -- text size: 18
  136. -- style flags: 0
  137. -- line height: 24
  138. -- part name: op
  139.  
  140.  
  141. -- part 8 (field)
  142. -- low flags: 81
  143. -- high flags: 0004
  144. -- rect: left=15 top=125 right=155 bottom=497
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 20
  149. -- text size: 18
  150. -- style flags: 0
  151. -- line height: 24
  152. -- part name: ref
  153.  
  154.  
  155. -- part contents for card part 7
  156. ----- text -----
  157. This will let you track a user ie - In or Out. The notification can be the flashing icon, or the alert box, depending on your preferences.  See under Preferences, General Section.
  158.  
  159. -- part contents for card part 8
  160. ----- text -----
  161. Any changes from users will be updated with this function.